object FormEdicionReglaConex: TFormEdicionReglaConex Left = 323 Top = 152 ActiveControl = PlaPageControlEdicionReglaConex BorderIcons = [biSystemMenu, biHelp] BorderStyle = bsSingle Caption = 'Edici�n de la regla de conexi�n' ClientHeight = 422 ClientWidth = 424 Color = 14609391 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object PlaButtonCancelar: TPlaButton Left = 345 Top = 390 Width = 70 Height = 21 HelpContext = 194 Caption = 'Cancelar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = PlaButtonCancelarClick Cancel = True end object PlaButtonAceptar: TPlaButton Left = 267 Top = 390 Width = 70 Height = 21 HelpContext = 193 Caption = 'Aceptar' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = PlaButtonAceptarClick Default = True end object PlaPageControlEdicionReglaConex: TPlaPageControl Left = 6 Top = 7 Width = 410 Height = 368 ActivePage = PlaTabSheetGeneral Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 TabStop = True object PlaTabSheetGeneral: TPlaTabSheet Caption = 'General' TabVisible = True object PlaGroupBoxSobreRegla: TPlaGroupBox Left = 14 Top = 8 Width = 379 Height = 187 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = 13977088 TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Caption = 'Sobre la regla' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object Label1: TLabel Left = 58 Top = 19 Width = 309 Height = 26 AutoSize = False Caption = 'Escribe el nombre que deseas asignar a la regla. Te servir� para' + ' identificarla posteriormente.' Transparent = True WordWrap = True end object Label4: TLabel Left = 58 Top = 158 Width = 35 Height = 13 Caption = 'Acci�n:' Transparent = True end object Label2: TLabel Left = 58 Top = 58 Width = 94 Height = 13 Caption = 'Nombre de la regla:' end object ImageSobreRegla: TImage Left = 11 Top = 22 Width = 32 Height = 32 Picture.Data = {} Transparent = True end object Label3: TLabel Left = 58 Top = 102 Width = 309 Height = 39 AutoSize = False Caption = 'Las reglas de conexi�n pueden usarse para permitir o bloquear la' + 's comunicaciones de red. Selecciona qu� acci�n deseas que realic' + 'e esta regla.' Transparent = True WordWrap = True end object PlaComboBoxAccion: TPlaComboBox Left = 105 Top = 154 Width = 145 Height = 21 HelpContext = 244 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Style = csDropDownList TabOrder = 1 end object PlaEditNombreRegla: TPlaEdit Left = 58 Top = 74 Width = 309 Height = 21 Cursor = crIBeam HelpContext = 243 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 Transparent = False end end object PlaGroupBoxAdaptadores: TPlaGroupBox Left = 14 Top = 204 Width = 379 Height = 104 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = 13977088 TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Caption = 'Adaptadores de red' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 object Label5: TLabel Left = 58 Top = 19 Width = 309 Height = 39 AutoSize = False Caption = 'Las comunicaciones se llevan a cabo mediante adaptadores de red ' + '(modems, tarjetas de red, etc). Selecciona sobre qu� adaptador d' + 'e red deseas que act�e la regla.' Transparent = True WordWrap = True end object ImageAdaptadores: TImage Left = 11 Top = 22 Width = 32 Height = 32 Picture.Data = {} Transparent = True end object Label6: TLabel Left = 58 Top = 75 Width = 89 Height = 13 Caption = 'Adaptador de red:' Transparent = True end object PlaComboBoxAdaptador: TPlaComboBox Left = 158 Top = 71 Width = 209 Height = 21 HelpContext = 245 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Style = csDropDownList TabOrder = 0 end end end object PlaTabSheetProtocolos: TPlaTabSheet Caption = 'Protocolos y puertos' TabVisible = True object PlaGroupBoxProtocolos: TPlaGroupBox Left = 18 Top = 14 Width = 379 Height = 315 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = 13977088 TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Caption = 'Protocolos' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object Label7: TLabel Left = 58 Top = 19 Width = 309 Height = 26 AutoSize = False Caption = 'Selecciona el protocolo, sentido de la comunicaci�n y puertos so' + 'bre los que quieres que act�e la regla.' Transparent = True WordWrap = True end object ImageProtocolos: TImage Left = 11 Top = 22 Width = 32 Height = 32 Picture.Data = {} Transparent = True end object Label10: TLabel Left = 58 Top = 133 Width = 132 Height = 13 Caption = 'Sentido de la comunicaci�n:' Transparent = True end object Label9: TLabel Left = 58 Top = 101 Width = 309 Height = 26 AutoSize = False Caption = 'Selecciona el sentido de la comunicaci�n (entrada o salida) sobr' + 'e el que deseas que act�e la regla.' Transparent = True WordWrap = True end object Label8: TLabel Left = 58 Top = 51 Width = 49 Height = 13 Caption = 'Protocolo:' Transparent = True end object PanelICMP: TPlaPanel Left = 0 Top = 183 Width = 379 Height = 132 Transparent = False object LabelInfoICMP: TLabel Left = 58 Top = 0 Width = 311 Height = 13 Caption = 'Selecciona los servicios ICMP a los que quieras aplicar esta reg' + 'la.' Transparent = True end object BtnICMPUncheckAll: TPlaButton Left = 270 Top = 99 Width = 97 Height = 21 Caption = 'Desactivar todos' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = BtnICMPUncheckAllClick end object BtnICMPCheckAll: TPlaButton Left = 166 Top = 99 Width = 97 Height = 21 Caption = 'Activar todos' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = BtnICMPCheckAllClick end object PlaListBoxICMP: TPlaListBox Left = 58 Top = 16 Width = 309 Height = 75 TabOrder = 2 UseCheckBoxes = True end end object PanelTcpUdp: TPlaPanel Left = 0 Top = 183 Width = 379 Height = 132 object LabelInfoPorts: TLabel Left = 58 Top = 0 Width = 309 Height = 13 AutoSize = False Caption = 'Indica los puertos sobre los que se aplica la regla.' Transparent = True end object LabelLocalPorts: TLabel Left = 58 Top = 19 Width = 76 Height = 13 Caption = 'Puertos locales:' Transparent = True end object LbInfoPorts2: TLabel Left = 58 Top = 67 Width = 258 Height = 13 Caption = 'Escribe los puertos e intervalos separados por comas.' Transparent = True end object LbInfoPorts3: TLabel Left = 58 Top = 82 Width = 122 Height = 13 Caption = 'Ejemplo: 110, 25-30, 115' Transparent = True end object LabelRemotePorts: TLabel Left = 219 Top = 19 Width = 83 Height = 13 Caption = 'Puertos remotos:' Transparent = True end object PlaComboBoxPuertosLocales: TPlaComboBox Left = 58 Top = 35 Width = 145 Height = 21 Cursor = crIBeam Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 Text = 'Todos' end object PlaComboBoxPuertosRemotos: TPlaComboBox Left = 219 Top = 35 Width = 145 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 Text = 'Todos' end end object PanelIP: TPlaPanel Left = 0 Top = 183 Width = 379 Height = 132 Transparent = False object LabelInfoTypeIP: TLabel Left = 58 Top = 0 Width = 271 Height = 13 Caption = 'Indica los protocolos a los que quieras aplicar esta regla.' Transparent = True end object PlaListBoxIPAddr: TPlaListBox Left = 58 Top = 16 Width = 309 Height = 75 TabOrder = 0 UseCheckBoxes = True end object BtnIPCheckAll: TPlaButton Left = 166 Top = 99 Width = 97 Height = 21 Caption = 'Activar todos' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = BtnIPCheckAllClick end object BtnIPUncheckAll: TPlaButton Left = 270 Top = 99 Width = 97 Height = 21 Caption = 'Desactivar todos' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = BtnIPUncheckAllClick end end object PlaComboBoxSentido: TPlaComboBox Left = 58 Top = 149 Width = 145 Height = 21 HelpContext = 247 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Style = csDropDownList TabOrder = 1 end object PlaComboBoxProtocolo: TPlaComboBox Left = 58 Top = 67 Width = 145 Height = 21 HelpContext = 246 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False Style = csDropDownList TabOrder = 0 OnChange = PlaComboBoxProtocoloChange end end end object PlaTabSheetDirecciones: TPlaTabSheet Caption = 'Direcciones' TabVisible = True object PlaGroupBoxDireccionesRemotas: TPlaGroupBox Left = 14 Top = 8 Width = 379 Height = 212 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = 13977088 TitleFont.Height = -11 TitleFont.Name = 'Tahoma' TitleFont.Style = [] Caption = 'Direcciones remotas' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 object ImageDirecciones: TImage Left = 11 Top = 22 Width = 32 Height = 32 Picture.Data = {} Transparent = True end object LabelInfoDirecciones: TLabel Left = 58 Top = 19 Width = 310 Height = 13 Caption = 'Indica las direcciones remotas sobre las que se aplica la regla.' Constraints.MinWidth = 310 Transparent = True WordWrap = True end object LabelDirInfo1: TLabel Left = 77 Top = 172 Width = 274 Height = 13 Caption = 'Escribe las direcciones e intervalos separados por comas.' Transparent = True end object LabelDirInfo2: TLabel Left = 77 Top = 187 Width = 235 Height = 13 Caption = 'Ejemplo: 192.168.1.1-192.168.1.254, 172.1.1.1' Transparent = True end object PlaRadioButtonCualquierDireccion: TPlaRadioButton Left = 58 Top = 48 Width = 111 Height = 16 HelpContext = 248 Caption = 'Cualquier direcci�n' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 TabStop = False OnClick = PlaRadioButtonCualquierDireccionClick end object PlaRadioButtonDireccionMAC: TPlaRadioButton Left = 58 Top = 76 Width = 182 Height = 16 HelpContext = 249 Caption = 'Direcci�n de tarjeta de red (MAC)' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 TabStop = False OnClick = PlaRadioButtonDireccionMACClick end object PlaRadioButtonDireccionesIP: TPlaRadioButton Left = 58 Top = 127 Width = 88 Height = 16 HelpContext = 250 Caption = 'Direcciones IP' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 2 TabStop = False OnClick = PlaRadioButtonDireccionesIPClick end object PlaEditDireccionesIP: TPlaEdit Left = 77 Top = 145 Width = 290 Height = 21 Cursor = crIBeam HelpContext = 251 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 3 Transparent = False end object PlaMacAddress: TPlaMacAddressEdit Left = 77 Top = 94 Width = 144 Height = 21 SeparatorChar = '-' Text = '000000000000' FormattedText = '0.0.0.0.0.0' end end end end end